home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Mp / gmp-1.3.2 / tests / urandom.h < prev   
Encoding:
C/C++ Source or Header  |  1993-05-02  |  331 b   |  18 lines
  1. #if defined (hpux) || defined (__alpha__)
  2. /* HPUX lacks random().  DEC Alpha's random() returns a double.  */
  3. static inline unsigned long
  4. urandom ()
  5. {
  6.   return mrand48 ();
  7. }
  8. #else
  9. long random ();
  10.  
  11. static inline unsigned long
  12. urandom ()
  13. {
  14.   /* random() returns 31 bits, we want 32.  */
  15.   return random() ^ (random() << 1);
  16. }
  17. #endif
  18.